"VERSION 1.4

"BY JEREMY KARUNARATNE 3/19/03,4/7/03,LAST MOD 7/5/03

5A:10B:15C:20D:25E:30F:35G:40H:45I:50J:55K:60L:65M:70N:75O:80P:85Q:90R:95S
100T:105U:110V:115W:120X:125Y:130Z

ClrHome
Lbl 2
Menu("CODER OPTIONS","ENCODE",E,"DECODE",F,"OUTPUT",C,"INPUT",G,"GET",3,"CLRLST",89,"PRIPUBKEY",1
Lbl 89
ClrList CODE
Lbl 3
GetCalc(CODE)
Goto 2
Lbl 1
Input "PRIVATE KEY: ",K
K+13K
KK
K/7K
K-8K
Krand
K*randK
K/3K
int(KK
ClrHome
Disp K
Stop
Lbl E
DelVar CODE
DelVar CODEA
DelVar T
0CODEA(1)
DelVar 
ClrHome
5A:10B:15C:20D:25E:30F:35G:40H:45I:50J:55K:60L:65M:70N:75O:80P:85Q:90R:95S
100T:105U:110V:115W:120X:125Y:130Z
Input "PUBPRI KEY: ",K
ClrHome
DelVar T
Input "BIT: ",I
ClrHome
Krand
ClrHome
Lbl A
Output(5,8,T
CODEA(1)+1CODEA(1)
Lbl B
getKey
If =0
Goto B
If =105
Goto 2
int(Irand)K
-40
+K
T+1T
CODE(T)
Goto A
Lbl C
DelVar X
1O
randInt(1,500K
randInt(1,500I
Lbl D
X+1X
Disp CODE(X)
If X=dim(CODE)
Then
Pause 
ClrHome
Goto 2
End
If X=7O
Then
Pause 
ClrHome
O+1O
End
Goto D
Lbl G
DelVar A
DelVar CODE
Lbl H
A+1A
Input B
BCODE(A)
Goto H
Lbl F
ClrHome
5A:10B:15C:20D:25E:30F:35G:40H:45I:50J:55K:60L:65M:70N:75O:80P:85Q:90R:95S
100T:105U:110V:115W:120X:125Y:130Z

Input "PRIVATE KEY: ",K
If K=0
Goto DD
K+13K
KK
K/7K
K-8K
Krand
K*randK
K/3K
int(KK
Goto DE
Lbl DD
Input "PRIVATE KEY",K
Lbl DE
ClrHome
Input "BIT: ",I
ClrHome
Krand
ClrHome
DelVar T
DelVar X
1Y
ClrHome
dim(CODE
For(X,1,
int(Irand)K
T+1T
If Y=9
Then
Pause 
ClrHome
1X
1Y
End
CODE(T)-KU
If U=1:Output(Y,X,"A
If U=2:Output(Y,X,"B
If U=3:Output(Y,X,"C
If U=11:Output(Y,X,"D
If U=12:Output(Y,X,"E
If U=13:Output(Y,X,"F
If U=14:Output(Y,X,"G
If U=15:Output(Y,X,"H
If U=21:Output(Y,X,"I
If U=22:Output(Y,X,"J
If U=23:Output(Y,X,"K
If U=24:Output(Y,X,"L
If U=25:Output(Y,X,"M
If U=31:Output(Y,X,"N
If U=32:Output(Y,X,"O
If U=33:Output(Y,X,"P
If U=34:Output(Y,X,"Q
If U=35:Output(Y,X,"R
If U=41:Output(Y,X,"S
If U=42:Output(Y,X,"T
If U=43:Output(Y,X,"U
If U=44:Output(Y,X,"V
If U=45:Output(Y,X,"W
If U=51:Output(Y,X,"X
If U=52:Output(Y,X,"Y
If U=53:Output(Y,X,"Z
If U=65:Output(Y,X," "

If X=16
Y+1Y
If X=16
0X
End
Output(Y,X,"."
Pause 
ClrHome
Goto 2